CU Amiga Super CD-ROM 19/CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso/CUCD/Graphics/CyberGraphX3/CGXV3_Install

Text File | 1997-10-23 | 51.5 KB | 1,064 lines

;*****************************************************************************
;    ______        __                  ______                     __  __   __
;   / __  /       / /                 / __  /      INSTALL       / /  \ \ / /
;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /  V3
;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
;         /_/                                        / /
;                                                   /_/
; S3          : CyberVision64/3D, CyberVision64
; Cirrus Logic: Picasso II(+), Picasso IV, Spectrum, Piccolo, Piccolo SD64, Inferno
;
; CyberGraphX V3 BETA Installer ©1996,1997 by Robert C. Reiswig
; $VER: V0.38 (October-22-1997)
;
; If you wish to use any part of this installer you must ask. May not be
; integrated/placed into any other package! You may NOT change this in an way!
; You man NOT take or use the ENV definitions and use them without direct
; permission from me! Changes, suggestions or problems: [e-mail]
;********************************************************************************

;********************************************************************************
; Cyber Release & Boards
;********************************************************************************
(set @user-level 2)
(set #cyberver "V3 41.2")
(set NoBoard 0)
(set whereback "SYS:Storage")
(message (cat "\nCyberGraphX " #cyberver "\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
              "\nCyberVisionPPC & CyberVision64/3D & CyberVision64\n\nPicasso II(+) & Spectrum\n\n"
              "Piccolo & Piccolo SD64\n\nInferno & PicassoIV\n\nRetina BLT Z3"
         )
)

(welcome)
;********************************************************************************
; Read All System information
;********************************************************************************
(set cpu (database "cpu")) (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
(set vblank (database "vblank")) (set graphmem (database "graphics-mem"))
(set totmem (database "total-mem")) (set osver (/ (getversion "LIBS:version.library") 65536))
(if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
(set fastmem (- totmem graphmem))
( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
( if (= osver 41) ( (set workbench "3.2")) )))))
(set pick 0)

;********************************************************************************
;English Strings
;********************************************************************************
(set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
              "by:\n\nVision Factory Development"

         )
)

(set #askzorro "\nWhat type of machine is CyberGraphX V3 installed on?\n")
(set #askcpu "\nWhat CPU does the machine have that you are updating CyberGraphX V3 on? The installer has found:\n")
(set #wherelibs "Where do you want the CyberGraphX V3 libraries installed? The default is 'SYS:Libs'")
(set #whatboard (cat "\nPlease Select the Graphics Board(s) you wish to Install CyberGraphX V3 for:\n"))
(set #todo-prompt "\nDo you wish to install:\n")
(set #cgxmode-todo " CGXMode - Create & Change Screen Modes")
(set #wheremode "Where do you wish to copy the CGXMode Program?")
(set #whereshowcgxconfig "Where do you wish to copy the ShowCGXconfig Program?")
(set #showcgxconfig " ShowCGXconfig - CGX Info Program")

;***** New Strings for Aug-11-97
(set #nocvppcboard "\n\n\nCurrently there is no public driver for the CyberVisionPPC graphics card.")
(set #noretinaboard "\n\n\nCurrently there is no public driver for the Retina BLT Z3 graphics card.")
(set #nopicasso4board "\n\n\nCurrently there is no public driver for the Picasso IV graphics card.")
(set #noinfernoboard "\n\n\nCurrently there installer does not fully support the Inferno yet.")

(set #ask-MODEFILE1 "Which modefile should be installed for the ")
(set #ask-MODEFILE2 "? The khz number should not exceed your monitors max khz!")
(set #15KHZ "15khz maximum") (set #31KHZ "31khz maximum")
(set #35KHZ "35khz maximum") (set #38KHZ "38khz maximum")
(set #48KHZ "48khz maximum") (set #57KHZ "57khz maximum")
(set #64KHZ "64khz maximum") (set #80KHZ "80khz maximum")

(set #yes "Yes")
(set #no "No")
(set #followingenv "\n\n\n\nThe following section will set the Env Vars for CyberGraphX V3.")
(set #whatboard-tt "\n\n\n\nThe following ToolTypes will be set for the:\n\n")


(set #usesemaphores (cat "USESEMAPHORES\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                         "Uses Semaphores to avoid disabling of multitasking "
                         "under certain conditions. Enabling this option might "
                         "lead to lockups under certain conditions but overall is more "
                         "system friendly."
             )
)
(set #superlayers (cat "SUPERLAYERS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                       "New fast layers replacement. Will speed layers up a lot, "
                       "especially when using many windows."
             )
)
(set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                  "By setting this variable, the planar-to-chunky conversion "
                  "will be done by the CPU, instead of using the blitter."
                  "Therefore the ugly looking 'planar' blitting effects are gone, "
                  "but the software conversion is a bit slower."
             )
)
(set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "By setting this variable, the Lores-Sprites on non-AA-machines "
                     "become Hires-sprites (they are no longer doubled by "
                     "the CyberGraphX-Software). "

                )
)
(set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "By setting this variable, you can switch off 15bit modes to reduce "
                     "screenmode list length. The Modes are still available just hidden."
                )
)
(set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) "
                     "will be placed on an CyberGraphX screens."
                )
)
(set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "With this option on, non displayable planar bitmaps "
                     "are allocated in fast memory. This options speeds up "
                     "handling of planar bitmaps but could lead to problems "
                     "with amiga graphics which insist on planar graphics "
                     "placed in chip memory. Take care when using this option."
                )
)
(set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Everytime a CyberGraphX display becomes a front-screen, "
                     "Amiga display DMA is switched off in order "
                     "to increase chipmem access speed if this option is off."
                )
)
(set #savemem   (cat "SAVEMEM\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "CyberGraphX will reduce memory consumption in less or equal 16 colour "
                     "modes, CyberGraphX keeps a planar representation of the screen "
                     "bitmap in fastmem and a chunky representation in video memory."
                )
)






(set #bootlogo  (cat "BOOTLOGO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Setting this to '0' will cause the CyberGraphX Bootlogo "
                     "not to be shown at boot time for this card."
                )
)
(set #passthrough (cat "PASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                       "If this option is disabled, the monitor switch on this "
                       "CyberGraphX card is deactivated. This option is "
                       "required for multi monitor systems."
                )
)
(set #memclock  (cat "MEMCLOCK\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "This is the default memory clock speed in MHz for "
                     "the graphics memory on the card. Default is 50."
                )
)
(set #scrollmask (cat "SCROLLMASK\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                      "Enables masking when scrolling/moving rectangles with "
                      "a mask in 256 colour modes. Setting this to 'NO' will "
                      "speed up scrolling of text in a shell but might "
                      "cause text crsr refresh problems with programs such as CED."
                 )
)
(set #dragging  (cat "DRAGGING\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "This makes it is possible to keep multiple screens in video memory "
                     "allowing for very fast screen swaps. The trade off is that you will loose screen dragging."
                     "Do you wish to have dragable screens like normal amiga screens do?"
                )
)

;*********** NEW English Strings:  Wednesday 03-Sep-97 *************************
(set #nobackup "\n\nThis installer will install CGX V3 for the first time. Before you start you should use the backup program that came with your RTG Graphics system. Then you should use the uninstaller that came with it. If it did not come with these, then you will need to remove it by hand.\n\nYou should do this now if you have not done so.")
(set #whatboot "\nWhat bootlogo would you like to use?\n")
(set #bootdefault "CyberGraphX - Default")
(set #bootppc "Light My Fire - PPC")
(set #bootnone "Don't copy - Already Installed")


;*********** NEW English Strings:  Wednesday 22-Oct-97 *************************
(set #nopassthrough (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                         "THIS IS A MASTER SWITCH. If this option is enabled, the monitor switch on every "
                         "CyberGraphX supported board is deactivated. This option is "
                         "required for multi monitor systems. It is disabled by default. "
                         "If NOPASSTHROUGH=0 (No) then the tooltype PASSTHROUGH can be used. If NOPASSTHROUGH=1 (Yes) then the tooltype PASSTHROUGH is not used!"
                    )
)

(set #supergels     (cat "SUPERGELS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                         "A replacement for the original CyberGraphX GELs system. GELs = "
                         "Graphic ELementS, this includes things like blitter objects and effects the speed of "
                         "things like moving icons or opus drag and drop stuff. It will also give you "
                         "superimposed dragging in hi/truecolor! It is disabled by default (No)."

                    )
)

;********************************************************************************
;German Strings
;********************************************************************************
(if (= @language "deutsch")
(
 (set #askzorro "\nWelche Erweiterungsslots besitzt der Computer, auf dem Sie CyberGraphX V3 installieren ?\n")
 (set #askcpu "\nWelchen Prozessor besitzt der Computer, auf dem Sie CyberGraphX V3 installieren wollen ? Der installer hat folgendes gefunden:\n")
 (set #wherelibs "Wohin sollen die CyberGraphX V3 Bibliotheken installiert werden? Standard ist 'SYS:Libs'")
 (set #whatboard (cat "\nBitte wählen Sie die Grafikkarte(n), mit denen Sie CyberGraphX V3 benutzen wollen:\n"))
 (set #todo-prompt "\nWelches der folgenden Programme wollen Sie installieren: ?\n")
 (set #cgxmode-todo " CGXMode - Erstellen & Ändern von Bildschirmmodis")
 (set #wheremode "Wohin wollen Sie das CGXMode Programm kopiert haben?")
 (set #whereshowcgxconfig "Wohin wollen Sie das ShowCGXconfig Programm kopiert haben?")
 (set #showcgxconfig " ShowCGXconfig - CyberGraphX Informationsprogramm")

 ;***** New Strings for Aug-11-97
 (set #nocvppcboard "\n\n\nMomentan ist kein Treiber für die CyberVisionPPC Grafikkarte frei verfügbar.")
 (set #noretinaboard "\n\n\nMomentan ist kein Treiber für die Retina BLT Z3 Grafikkarte frei verfügbar.")
 (set #nopicasso4board "\n\n\nMomentan ist kein Treiber für die PicassoIV Grafikkarte frei verfügbar.")
 (set #noinfernoboard "\n\n\nMomentan unterstützt dieses Skript die Installation der Inferno Grafikkarte noch nicht.")

 (set #ask-MODEFILE1 "Welche Monitorfrequenzdatei wählen Sie für die ")
 (set #ask-MODEFILE2 "? Die khz Angabe sollte die maximale khz Angabe für ihren Bildschirm nicht überschreiten!")
 (set #15KHZ "15khz maximum") (set #31KHZ "31khz maximum")
 (set #35KHZ "35khz maximum") (set #38KHZ "38khz maximum")
 (set #48KHZ "48khz maximum") (set #57KHZ "57khz maximum")
 (set #64KHZ "64khz maximum") (set #80KHZ "80khz maximum")

 (set #yes "Ja")
 (set #no "Nein")
 (set #followingenv "\n\n\n\nDer folgende Abschnitt setzt die Umgebungsvariablen für CyberGraphX V3.")
 (set #whatboard-tt "\n\n\n\nDie folgenden Piktogrammmerkmale werden gesetzt für die:\n\n")

 (set #usesemaphores (cat "USESEMAPHORES\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                         "Benutzt Semaphoren um das Unterbrechen des Multitaskings bei bestimmten Bedingungen "
                         "zu vermeiden. Die Aktivierung dieser Option könnte zu Systemhängern unter gewissen "
                         "Voraussetzungen führen, ist aber im Ganzen Multitaskingfreundlicher als die Standardmethode."
             )
 )
 (set #superlayers (cat "SUPERLAYERS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                       "Neuer, schneller Layers Ersatz. Dadurch werden Fensteroperationen beschleunigt, "
                       "vor allem, wenn viele Fenster benutzt werden."
             )
 )

 (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                  "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
                  "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
                  "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
                  "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
             )
 )

 (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
                     "zu Hires-sprites (Sie werden nicht mehr von der CyberGraphX Software "
                     "verdoppelt). "
                )
 )

 (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um "
                     "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar."
                )
 )

 (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) "
                     "auf einen CyberGraphX Bildschirm umgeleitet."
                )
 )

 (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Ist diese Option aktiv, werden nicht darzustellende "
                     "planare BitMaps im FastRAM angelegt. Diese Option "
                     "beschleunigt die Bearbeitung von planaren BitMaps aber "
                     "kann zu Problemen mit Amiga Originalgrafik führen, wenn "
                     "diese davon ausgeht, dass planare BitMaps im ChipRAM liegen. "
                     "Seien Sie vorsichtig mit der Aktivierung dieser Option."
               )
 )

 (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Ist diese Option nicht aktiv, wird jedesmal, wenn "
                     "ein CyberGraphX Bildschirm nach vorne kommt, die Amiga Bildschirm "
                     "DMA abgeschaltet, um den Zugriff auf das ChipMemory zu beschleunigen. "
                )
 )

 (set #savemem   (cat "SAVEMEM\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Wenn diese Option aktiv ist, verbraucht CyberGraphX weniger Speicher in kleiner oder gleich "
                     "16 Farben, weil im Fast RAM Speicher ein planares Abbild des Videospeichers gehalten wird "
                     "und im Videospeicher ein Chunky Abbild."
                )
 )



 (set #bootlogo  (cat "BOOTLOGO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Ist diese Option inaktiv (auf '0' gesetzt), wird das CyberGraphX Startlogo "
                     "nicht angezeigt während eines Neustarts des Rechners."
                )
 )


 (set #passthrough   (cat "PASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                    "Wenn diese Option deaktiviert ist, wird der Monitorumschalter "
                    "auf der jeweiligen Karte deaktiviert. "
                    "Diese Option ist für Mehr-Monitor Systeme erforderlich. "
                )
 )


 (set #memclock  (cat "MEMCLOCK\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Damit wird die Geschwindigkeit in MHz für den"
                     "Grafikkartenspeicher eingestellt. Standard ist 50."
                )
 )

 (set #scrollmask (cat "SCROLLMASK\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                      "Aktiviert Maskierung beim Verschieben/Scrollen von Rechtecken mit "
                      "einer Maske in 256 Farben. Ist dieses Merkmal auf 'NO' gesetzt "
                      "wird das Scrollen in einem Shell Fenster geringfügig schneller, "
                      "es kann aber bei bestimmten Programmen (wie CED) auch zu Refresh"
                  " Problemen kommen."
                 )
 )
 (set #dragging  (cat "DRAGGING\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Mit diesem Merkmal ist es möglich, zwischen schnellem Bildschirmumschalten "
                     "oder herunterziehbaren Bildschirmen zu wählen. Welche Variante besser ist, "
                     "hängt ganz vom persönlichen Geschmack des Benutzers ab. Als Vorgabe sind "
             "Bildschirme immer ziehbar."
                )
 )

 ;*********** NEW Strings:  Wednesday 03-Sep-97 *************************
 (set #nobackup "\n\nDieses Installationsskript führt eine Erstinstallation von CyberGraphX V3 durch. Bevor Sie weitermachen, sollten Sie das evtl. vorhandene alte System mit dem entsprechend dafür vorgesehenen Programm sichern. Verwenden Sie dann das Programm zum Entfernen der alten RTG Systemsoftware. Wenn dieses Programm nicht vorhanden ist, so müssen Sie das manuell erledigen.\n\nSie müssen es auf jeden Fall tun, bevor sie mit dieser Installation fortfahren.")
 (set #whatboot "\nWelches StartupLogo wollen Sie installieren ?\n")
 (set #bootdefault "CyberGraphX - Standard")
 (set #bootppc "Light My Fire - PPC")
 (set #bootnone "Nichts kopieren - bereits installiert")


 ;*********** NEW English Strings:  Wednesday 22-Oct-97 *************************
 (set #nopassthrough (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                         "Wenn diese Option aktiv ist, werden die Monitorumschalter aller "
                         "CyberGraphX Grafikkarten deaktiviert. Bei Mehrmonitorbetrieb wird "
                         "diese Option benötigt. Sie ist standardmäßig inaktiv. "
                         "Wenn NOPASSTHROUGH=0 (Nein) kann der ToolType PASSTHROUGH in den Monitortreibern verwendet werden. Wenn NOPASSTHROUGH=1 (Ja), ist der Tooltype PASSTHROUGH überbrückt!"
                    )
 )

 (set #supergels     (cat "SUPERGELS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                         "Ein Ersatz für das originale CyberGraphX GELs system. GELs = "
                         "Graphic ELementS, das betrifft sogenannte BOBs und erhöht die Geschwindigkeit "
                         "bei Operationen wie dem Verschieben von Piktogrammen oder DOpus Drag&Drop. Standardmäßig "
                         "ist diese Option nicht aktiv (Nein)."

                     )
 )

)
)

;********************************************************************************
; French Strings by: Pixel Man <[e-mail]>
;********************************************************************************
(if (= @language "français")
(
 (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
               "by:\n\nVision Factory Development"

          )
 )
 (set #nobackup "\n\nCe programme va installer CGX V3 pour la première fois. Avant de commencer vous devriez utiliser le "Backup & Uninstaller" distribué avec les autres systèmes RTG. S'il n'y en a pas, vous pouvez les enlever à la main\n\nVous devez faire ceci maintenent.")
 (set #askzorro "\nSur quel type de machine CyberGraphX V3 est-il installé?\n")
 (set #askcpu "\nQuel CPU possède la machine où vous installez CyberGraphX V3 ? l'installer a trouvé:\n")
 (set #wherelibs "Où voulez vous installer les librairies CyberGraphX V3? Le tiroir par défaut est 'SYS:Libs'")
 (set #whatboard (cat "\nSélectionnez le(s) carte(s) graphique(s) pour laquelle(lesquelles) vous voulez installer CyberGraphX V3:\n"))
 (set #todo-prompt "\nVoulez vous installer:\n")
 (set #cgxmode-todo " CGXMode - Créer & Changer les modes d'écrans")
 (set #wheremode "Où voulez vous copier le programme CGXMode?")
 (set #whereshowcgxconfig "Où souhaitez vous copier le programme ShowCGXconfig?")
 (set #showcgxconfig " ShowCGXconfig - CGX Info Programme")

 ;***** New Strings for Aug-11-97
 (set #nocvppcboard "\n\n\nLe pilote pour la carte graphique CyberVisionPPC n'est actuellement pas disponible.")
 (set #noretinaboard "\n\n\nLe pilote pour la carte graphique Retina BLT Z3 n'est actuellement pas disponible.")
 (set #nopicasso4board "\n\n\nLe pilote pour la carte graphique Picasso IV n'est actuellement pas disponible..")
 (set #noinfernoboard "\n\n\nActuellement cet installer ne supporte pas totalement l'Inferno.\n\nContactez [e-mail] pour de plus amples informations.")

 (set #ask-MODEFILE1 "Quel "modefile" doit être installer pour la ")
 (set #ask-MODEFILE2 "? Le nombre de khz ne doit pas excéder le maximum de Khz de votre moniteur!")
 (set #15KHZ "15khz maximum") (set #31KHZ "31khz maximum")
 (set #35KHZ "35khz maximum") (set #38KHZ "38khz maximum")
 (set #48KHZ "48khz maximum") (set #57KHZ "57khz maximum")
 (set #64KHZ "64khz maximum") (set #80KHZ "80khz maximum")

 (set #yes "Yes")
 (set #no "No")
 (set #followingenv "\n\n\n\nLa section suivante va paramétrer les variables d'environnement pour CyberGraphX V3.")
 (set #whatboard-tt "\n\n\n\nLes 'ToolTypes' suivants vont être paramètrés pour la:\n\n")


 (set #usesemaphores (cat "USESEMAPHORES\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                          "Uses Semaphores to avoid disabling of multitasking "
                          "under certain conditions. Enabling this option might "
                          "lead to lockups under certain conditions but overall is more "
                          "system friendly."
              )
 )
 (set #superlayers (cat "SUPERLAYERS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                        "Nouvau 'layer' rapide. Devrait accélérer considérablement les layers, "
                        "spécialement en utilisant beaucoup de fenêtres."
              )
 )
 (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                   "En validant cette variable, la convertion 'planar-to-chunky' "
                   "sera faite par le CPU, au lieu d'utiliser le 'blitter'."
                   "Par conséquent les laids effets 'planar' du 'blitter' ne seront plus, "
                   "mais la conversion logiciel est un peu plus lente."
              )
 )
 (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                      "En validant cette variable, les 'Sprites' basse résolution sur les machines non AGA"
                      "sont changée en 'sprites' haute résolution (ils ne sont pas doubler par "
                      "le logiciel CyberGraphX)."
                 )
 )
 (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                      "En validant cette variable, Vous pouvez cacher les modes 15bit pour réduire "
                      "la liste des modes d'écrans. Ces modes sont toujours disponibles ils sont juste cachés."
                 )
 )
 (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                      "En validant cette variable, DisplayAlert(), (L'écran que vous avez quand la machine plante.) "
                      "Sera placé sur un écran CyberGraphX."
                 )
 )
 (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                      "With this option on, non displayable planar bitmaps "
                      "are allocated in fast memory. This options speeds up "
                      "handling of planar bitmaps but could lead to problems "
                      "with amiga graphics which insist on planar graphics "
                      "placed in chip memory. Take care when using this option."
                 )
 )
 (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                      "Everytime a CyberGraphX display becomes a front-screen, "
                      "Amiga display DMA is switched off in order "
                      "to increase chipmem access speed. "
                 )
 )
 (set #savemem   (cat "SAVEMEM\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                      "CyberGraphX will reduce memory consumption in less or equal 16 colour "
                      "modes, CyberGraphX keeps a planar representation of the screen "
                      "bitmap in fastmem and a chunky representation in video memory."
                 )
 )


 (set #bootlogo  (cat "BOOTLOGO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                      "Setting this to 'No' will cause the CyberGraphX Bootlogo "
                      "not to be shown at boot time for this card."
                 )
 )
 (set #passthrough (cat "PASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                        "If this option is enabled, the monitor switch on this "
                        "CyberGraphX card is deactivated. This option is "
                        "required for multi monitor systems."
                 )
 )
 (set #memclock  (cat "MEMCLOCK\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                      "This is the default memory clock speed in MHz for "
                      "the graphics memory on the card. Default is 50."
                 )
 )
 (set #scrollmask (cat "SCROLLMASK\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                       "Enables masking when scrolling/moving rectangles with "
                       "a mask in 256 colour modes. Setting this to 'NO' will "
                       "speed up scrolling of text in a shell but might "
                       "cause text crsr refresh problems with programs such as CED."
                  )
 )
 (set #dragging  (cat "DRAGGING\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                      "This makes it is possible to keep multiple screens in video memory "
                      "allowing for very fast screen swaps. The trade off is that you will loose screen dragging."
                      "Do you wish to have dragable screens like normal amiga screens do?"
                 )
 )

)
)

;********************************************************************************
; Start Update
;********************************************************************************
;(message #by)
(message #nobackup)


;*******************************************************************
;  What board to update
;*******************************************************************
(set BGuess 0)

(if (> (exists ("devs:monitors/CVisionPPC")) 0) (set BGuess (+ BGuess 1)) )
(if (> (exists ("devs:monitors/CVision3D")) 0)  (set BGuess (+ BGuess 2)) )
(if (> (exists ("devs:monitors/CVision64")) 0)  (set BGuess (+ BGuess 4)) )
(if (> (exists ("devs:monitors/PicassoII")) 0)  (set BGuess (+ BGuess 8)) )
(if (> (exists ("devs:monitors/Spectrum")) 0)   (set BGuess (+ BGuess 16)) )
(if (> (exists ("devs:monitors/Piccolo")) 0)    (set BGuess (+ BGuess 32)) )
(if (> (exists ("devs:monitors/PiccoSD64")) 0)  (set BGuess (+ BGuess 64)) )
(if (> (exists ("devs:monitors/Inferno")) 0)    (set BGuess (+ BGuess 128)) )
(if (> (exists ("devs:monitors/PicassoIV")) 0)  (set BGuess (+ BGuess 256)) )
(if (> (exists ("devs:monitors/RetinaZ3")) 0)   (set BGuess (+ BGuess 512)) )

  (set board (askoptions (choices  " CyberVisionPPC" " CyberVision64/3D" " CyberVision64" " PicassoII(+)" " Spectrum"
                                   " Piccolo" " Piccolo SD64" " Inferno" " Picasso IV" " Retina BLT Z3"
                          (prompt #whatboard)
                      (help #whatboard)
                          (default BGuess)
                         )
             )
  )

  (if (IN board 0) (abort #nocvppcboard) ) (if (IN board 9) (abort #noretinaboard) )

;********************************************************************
; Double Check on the CPU
;********************************************************************
(set cpu (database "cpu"))
(if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
(if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
(if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1))
(if (= @installer-version 0)
  (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  (if (= cpu 68060) (set #cpu 1))
)

(set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060")
            (prompt #askcpu)
                    (help   #askcpu)
                  (default #cpu)
      )
)

(if (= cpuPick 0) (set cpuadd ".020")) (if (= cpuPick 1) (set cpuadd ".040"))

;*******************************************************************
;  ASK where cybergfx libs are
;*******************************************************************
(set wherelibs   (askdir (prompt #wherelibs)
             (help   #wherelibs)
                  (default "SYS:Libs")
         )
)

;*******************************************************************
;  Copy libs if there
;*******************************************************************
(if (exists (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd)) )
  (copyfiles (source (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd))) (dest wherelibs) (newname "cgxsystem.library") (optional "nofail") )
)

(if (exists (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd)) )
  (copyfiles (source (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd))) (dest wherelibs) (newname "cgxmpeg.library") (optional "nofail") )
)

;(if (exists (tackon "cgxbootpiclib" (cat "cgxbootpic.library" cpuadd)) )
;  (copyfiles (source (tackon "cgxbootpiclib" (cat "cgxbootpic.library" cpuadd))) (dest wherelibs) (newname "cgxbootpic.library") (optional "nofail") )
;)

;*******************************************************************
;  Ask What bootlogo....
;*******************************************************************
(if (> (exists ("c:multiview")) 0)  ((set #mpath "c:") (set mfound 1)) )
(if (> (exists ("sys:Utilities/multiview")) 0) ((set #mpath "sys:Utilities") (set mfound 1)) )
(if (= mfound 1) (run (cat "run " (tackon #mpath "multiview ") "cgxbootpiclib/bootlogos.iff")) )

(if (exists "libs:cgxbootpic.library") (set whatboot 2))
(set whatboot  (askchoice
               (choices #bootdefault #bootppc #bootnone)
               (prompt #whatboot)
               (help   #whatboot)
               (default whatboot)
              )
)

(if (AND (exists "cgxbootpiclib/cgxbootpic.library") (= whatboot 0))
  (copyfiles (source "cgxbootpiclib/cgxbootpic.library") (dest wherelibs) (optional "nofail") )
)

(if (AND (exists "cgxbootpiclib/cgxbootpic.library.ppc") (= whatboot 1))
  (copyfiles (source "cgxbootpiclib/cgxbootpic.library.ppc") (dest wherelibs) (optional "nofail") (newname "cgxbootpic.library") )
)

;*******************************************************************
;  Installer monitor file and handle extra libs
;*******************************************************************
  (if (IN board 0) (abort #nocvppcboard) )

  (if (IN board 1)
   (
     (set error (run "tools/ChkCV3DZorro"))
     (if (= error 0) (set guessZ 1) (set guessZ 0) )

     (set pickZ (askchoice (choices "zorro2 - Amiga 2000/zorro2 Expansion Box" "zorro3 - Amiga 3000(T)/4000(T)")
                       (prompt #askzorro)
                       (help   #askzorro)
                           (default guessZ)
                )
     )

     (if (= pickZ 0) (set zadd ".Z2"))   (if (= pickZ 1) (set zadd ".Z3"))

     (if (exists (tackon "S3Drivers" (cat "CVision3D" zadd)))
      (if (= (exists (tackon "devs:monitors" "CVision3D.info")) 0)
       (copyfiles (source (tackon "S3Drivers" (cat "CVision3D" zadd))) (dest "devs:monitors") (newname "CVision3D") (infos) (optional "nofail") )
       (copyfiles (source (tackon "S3Drivers" (cat "CVision3D" zadd))) (dest "devs:monitors") (newname "CVision3D") (optional "nofail") )
      )
     )

     (if (exists (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd)) )
       (copyfiles (source (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd))) (dest wherelibs) (newname "cgxvideo.library") (optional "nofail") )
     )

     (if (exists (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" cpuadd)) )
       (copyfiles (source (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" cpuadd))) (dest wherelibs) (newname "cgx3dvirgin.library") (optional "nofail") )
     )

   )
  )


  (if (AND (exists (tackon "S3Drivers" "CVision64")) (IN board 2) )
   (if (= (exists (tackon "devs:monitors" "CVision64.info")) 0)
    (copyfiles (source (tackon "S3Drivers" "CVision64")) (dest "devs:monitors") (infos) (optional "nofail") )
    (copyfiles (source (tackon "S3Drivers" "CVision64")) (dest "devs:monitors") (optional "nofail") )
   )
  )

  (if (AND (exists (tackon "CLDrivers" "PicassoII")) (IN board 3) )
   (if (= (exists (tackon "devs:monitors" "PicassoII.info")) 0)
    (copyfiles (source (tackon "CLDrivers" "PicassoII")) (dest "devs:monitors") (infos) (optional "nofail") )
    (copyfiles (source (tackon "CLDrivers" "PicassoII")) (dest "devs:monitors") (optional "nofail") )
   )
  )

  (if (AND (exists (tackon "CLDrivers" "Spectrum")) (IN board 4) )
   (if (= (exists (tackon "devs:monitors" "Spectrum.info")) 0)
    (copyfiles (source (tackon "CLDrivers" "Spectrum")) (dest "devs:monitors") (infos) (optional "nofail") )
    (copyfiles (source (tackon "CLDrivers" "Spectrum")) (dest "devs:monitors") (optional "nofail") )
   )
  )

  (if (AND (exists (tackon "CLDrivers" "Piccolo")) (IN board 5) )
   (if (= (exists (tackon "devs:monitors" "Piccolo.info")) 0)
    (copyfiles (source (tackon "CLDrivers" "Piccolo")) (dest "devs:monitors") (infos) (optional "nofail") )
    (copyfiles (source (tackon "CLDrivers" "Piccolo")) (dest "devs:monitors") (optional "nofail") )
   )
  )

  (if (AND (exists (tackon "CLDrivers" "PiccoSD64")) (IN board 6) )
   (if (= (exists (tackon "devs:monitors" "PiccoSD64.info")) 0)
    (copyfiles (source (tackon "CLDrivers" "PiccoSD64")) (dest "devs:monitors") (infos) (optional "nofail") )
    (copyfiles (source (tackon "CLDrivers" "PiccoSD64")) (dest "devs:monitors") (optional "nofail") )
   )
  )

  (if (AND (exists (tackon "CLDrivers" "Inferno")) (IN board 7) )
   (if (= (exists (tackon "devs:monitors" "Inferno.info")) 0)
    (copyfiles (source (tackon "CLDrivers" "Inferno")) (dest "devs:monitors") (infos) (optional "nofail") )
    (copyfiles (source (tackon "CLDrivers" "Inferno")) (dest "devs:monitors") (optional "nofail") )
   )
  )

  (if (AND (exists (tackon "CLDrivers" "PicassoIV")) (IN board 8) )
   (if (= (exists (tackon "devs:monitors" "PicassoIV.info")) 0)
    (copyfiles (source (tackon "CLDrivers" "PicassoIV")) (dest "devs:monitors") (infos) (optional "nofail") )
    (copyfiles (source (tackon "CLDrivers" "PicassoIV")) (dest "devs:monitors") (optional "nofail") )
   )
  )

  (if (IN board 9) (abort #noretinaboard) )

;*********************************************************************************
; Setup Monitor Config File Setup
;*********************************************************************************
(set modefile 0)
(procedure askconfigfile
  (set modefile (askchoice
                 (choices "None/Skip" #31KHZ #35KHZ #38KHZ #48KHZ #57KHZ #64KHZ #80KHZ)
                 (prompt (cat #ask-MODEFILE1 boardname #ask-MODEFILE2))
                 (help   (cat #ask-MODEFILE1 boardname #ask-MODEFILE2))
                 (default modefile)
                )
  )

  (if (> modefile 0)
   (
    (if (< (exists "env:CyberGraphX") 2) (makedir "env:CyberGraphX") )
    (if (< (exists "envarc:CyberGraphX") 2) (makedir "envarc:CyberGraphX") )

    (if (= modefile 1) (set mode "Monitor-31khz")) (if (= modefile 2) (set mode "Monitor-35khz"))
    (if (= modefile 3) (set mode "Monitor-38khz")) (if (= modefile 4) (set mode "Monitor-48khz"))
    (if (= modefile 5) (set mode "Monitor-57khz")) (if (= modefile 6) (set mode "Monitor-64khz"))
    (if (= modefile 7) (set mode "Monitor-80khz"))

    (if (< (exists "sys:prefs") 2) (makedir "sys:prefs") )
    (if (< (exists "sys:prefs/presets") 2) (makedir "sys:prefs/presets") )
    (if (< (exists "sys:prefs/presets/monitors") 2) (makedir "sys:prefs/presets/monitors") )
    (copyfiles (source (cat "prefs/presets/monitors/" mode))  (dest "sys:prefs/presets/monitors"))

    (run (cat "setenv CyberGraphX/" boardname "Monitor " mode))
    (copyfiles (source (cat "env:CyberGraphX/" boardname "Monitor"))  (dest "envarc:CyberGraphX") )
   )
  )
)

(if (IN board 0) ( (set boardname "CVisionPPC") (askconfigfile))) (if (IN board 1) ( (set boardname "CVision3D")  (askconfigfile)))
(if (IN board 2) ( (set boardname "CVision64")  (askconfigfile))) (if (IN board 3) ( (set boardname "PicassoII")  (askconfigfile)))
(if (IN board 4) ( (set boardname "Spectrum")   (askconfigfile))) (if (IN board 5) ( (set boardname "Piccolo")  (askconfigfile)))
(if (IN board 6) ( (set boardname "PiccoSD64")  (askconfigfile))) (if (IN board 7) ( (set boardname "Inferno")  (askconfigfile)))
(if (IN board 8) ( (set boardname "PicassoIV")  (askconfigfile))) (if (IN board 9) ( (set boardname "RetinaZ3")  (askconfigfile)))

;********************************************************************************
; Save the env vars...
;********************************************************************************
(procedure Save_Env
 (if (< (exists "env:CyberGraphX") 2) (makedir "env:CyberGraphX") )
 (if (< (exists "envarc:CyberGraphX") 2) (makedir "envarc:CyberGraphX") )

 (if (= usesemaphores 0) ( (delete "env:CyberGraphX/USESEMAPHORES") (delete "envarc:CyberGraphX/USESEMAPHORES") ) )
 (if (= usesemaphores 1) ( (run "setenv CyberGraphX/USESEMAPHORES 1") (copyfiles (source "ENV:CyberGraphX/USESEMAPHORES") (dest "ENVARC:CyberGraphX") ) ) )

 (if (= superlayers 0) ( (delete "env:CyberGraphX/SUPERLAYERS") (delete "envarc:CyberGraphX/SUPERLAYERS") ) )
 (if (= superlayers 1) ( (run "setenv CyberGraphX/SUPERLAYERS 1") (copyfiles (source "ENV:CyberGraphX/SUPERLAYERS") (dest "ENVARC:CyberGraphX") ) ) )

 (if (= cpup2c 0) ( (delete "env:CyberGraphX/CPUP2C") (delete "envarc:CyberGraphX/CPUP2C")  ) )
 (if (= cpup2c 1) ( (run "setenv CyberGraphX/CPUP2C 1") (copyfiles (source "ENV:CyberGraphX/CPUP2C") (dest "ENVARC:CyberGraphX") )  ) )

 (if (= HIRESCRSR 0) ( (delete "env:CyberGraphX/HIRESCRSR") (delete "envarc:CyberGraphX/HIRESCRSR") ) )
 (if (= HIRESCRSR 1) ( (run "setenv CyberGraphX/HIRESCRSR 1") (copyfiles (source "ENV:CyberGraphX/HIRESCRSR") (dest "ENVARC:CyberGraphX") ) ) )

 (if (= HIDE15BIT 0) ( (delete "env:CyberGraphX/HIDE15BIT") (delete "envarc:CyberGraphX/HIDE15BIT") ) )
 (if (= HIDE15BIT 1) ( (run "setenv CyberGraphX/HIDE15BIT 1") (copyfiles (source "ENV:CyberGraphX/HIDE15BIT") (dest "ENVARC:CyberGraphX") ) ) )

 (if (= ALERTEMU 0) ( (delete "env:CyberGraphX/ALERTEMU") (delete "envarc:CyberGraphX/ALERTEMU") ) )
 (if (= ALERTEMU 1) ( (run "setenv CyberGraphX/ALERTEMU 1") (copyfiles (source "ENV:CyberGraphX/ALERTEMU") (dest "ENVARC:CyberGraphX") ) ) )

 (if (= PLANES2FAST 0) ( (delete "env:CyberGraphX/PLANES2FAST") (delete "envarc:CyberGraphX/PLANES2FAST") ) )
 (if (= PLANES2FAST 1) ( (run "setenv CyberGraphX/PLANES2FAST 1") (copyfiles (source "ENV:CyberGraphX/PLANES2FAST") (dest "ENVARC:CyberGraphX") ) ) )

 (if (= KEEPAMIGAVIDEO 0) ( (delete "env:CyberGraphX/KEEPAMIGAVIDEO") (delete "envarc:CyberGraphX/KEEPAMIGAVIDEO") ) )
 (if (= KEEPAMIGAVIDEO 1) ( (run "setenv CyberGraphX/KEEPAMIGAVIDEO 1") (copyfiles (source "ENV:CyberGraphX/KEEPAMIGAVIDEO") (dest "ENVARC:CyberGraphX") ) ) )

 (if (= SAVEMEM 0) ( (delete "env:CyberGraphX/SAVEMEM") (delete "envarc:CyberGraphX/SAVEMEM") ) )
 (if (= SAVEMEM 1) ( (run "setenv CyberGraphX/SAVEMEM 1") (copyfiles (source "ENV:CyberGraphX/SAVEMEM") (dest "ENVARC:CyberGraphX") ) ) )

 (if (= NOPASSTHROUGH 0) ( (delete "env:CyberGraphX/NOPASSTHROUGH") (delete "envarc:CyberGraphX/NOPASSTHROUGH") ) )
 (if (= NOPASSTHROUGH 1) ( (run "setenv CyberGraphX/NOPASSTHROUGH 1") (copyfiles (source "ENV:CyberGraphX/NOPASSTHROUGH") (dest "ENVARC:CyberGraphX") ) ) )

 (if (= SUPERGELS 0) ( (delete "env:CyberGraphX/SUPERGELS") (delete "envarc:CyberGraphX/SUPERGELS") ) )
 (if (= SUPERGELS 1) ( (run "setenv CyberGraphX/SUPERGELS 1") (copyfiles (source "ENV:CyberGraphX/SUPERGELS") (dest "ENVARC:CyberGraphX") ) ) )


)

;********************************************************************************
; Find out whats in the env vars...
;********************************************************************************
(procedure Read_Env
 (set superlayers 0)  (set usesemaphores 0)
 (set hires 0)    (set cpup2c 0)  (set hide15bit 0) (set alertemu 0)
 (set nochip 0)   (set nopass 0)  (set keepamiga 0) (set planes2 0)
 (set bootlogo 0) (set savemem 0)


 (if (> (exists ("env:CyberGraphX/USESEMAPHORES")) 0) (if (= 1 (getenv "CyberGraphX/USESEMAPHORES")) (set usesemaphores 1) ) )
 (if (> (exists ("env:CyberGraphX/SUPERLAYERS")) 0)   (if (= 1 (getenv "CyberGraphX/SUPERLAYERS")) (set superlayers 1) ) )
 (if (> (exists ("env:CyberGraphX/CPUP2C")) 0)        (if (= 1 (getenv "CyberGraphX/CPUP2C")) (set cpup2c 1) ) )
 (if (> (exists ("env:CyberGraphX/HIRESCRSR")) 0)     (if (= 1 (getenv "CyberGraphX/HIRESCRSR")) (set hires 1) ) )
 (if (> (exists ("env:CyberGraphX/HIDE15BIT")) 0)     (if (= 1 (getenv "CyberGraphX/HIDE15BIT")) (set hide15bit 1) ) )
 (if (> (exists ("env:CyberGraphX/ALERTEMU")) 0)      (if (= 1 (getenv "CyberGraphX/ALERTEMU")) (set alertemu 1) ) )
 (if (> (exists ("env:CyberGraphX/PLANES2FAST")) 0)   (if (= 1 (getenv "CyberGraphX/PLANES2FAST")) (set planes2 1) ) )
 (if (> (exists ("env:CyberGraphX/KEEPAMIGAVIDEO")) 0)(if (= 1 (getenv "CyberGraphX/KEEPAMIGAVIDEO")) (set keepamiga 1) ) )
 (if (> (exists ("env:CyberGraphX/SAVEMEM")) 0)       (if (= 1 (getenv "CyberGraphX/SAVEMEM")) (set savemem 1) ) )
 (if (> (exists ("env:CyberGraphX/NOPASSTHROUGH")) 0) (if (= 1 (getenv "CyberGraphX/NOPASSTHROUGH")) (set nopassthrough 1) ) )
 (if (> (exists ("env:CyberGraphX/SUPERGELS")) 0)     (if (= 1 (getenv "CyberGraphX/SUPERGELS")) (set supergels 1) ) )


)

;****************************************
; Long Env Set
;****************************************
(procedure SetEnvLong

(Read_Env)

(set USESEMAPHORES (askchoice (choices #no #yes)
                            (prompt (cat #usesemaphores " " #currset))
                            (help   (cat #usesemaphores " " #currset))
                          (default usesemaphores)
               )
)
(set SUPERLAYERS (askchoice  (choices #no #yes)
                           (prompt (cat #superlayers " " #currset))
                           (help   (cat #superlayers " " #currset))
                         (default superlayers)
          )
)

(set CPUP2P   (askchoice     (choices #no #yes)
                           (prompt (cat #cpup2c " " #currset))
                           (help   (cat #cpup2c " " #currset))
                         (default cpup2c)
          )
)

(set HIRESCRSR (askchoice    (choices #no #yes)
                           (prompt (cat #hirescrsr " " #currset))
                           (help   (cat #hirescrsr " " #currset))
                         (default hires)
           )
)

(set HIDE15BIT (askchoice    (choices #no #yes)
                           (prompt (cat #hide15bit " " #currset))
                           (help   (cat #hide15bit " " #currset))
                         (default hide15bit)
           )
)

(set ALERTEMU  (askchoice    (choices #no #yes)
                           (prompt (cat #alertemu " " #currset))
                           (help   (cat #alertemu " " #currset))
                         (default alertemu)
           )
)

(set PLANES2FAST (askchoice    (choices #no #yes)
                           (prompt (cat #planes2 " " #currset))
                           (help   (cat #planes2 " " #currset))
                         (default planes2)
              )
)

(set KEEPAMIGAVIDEO (askchoice    (choices #no #yes)
                           (prompt (cat #keepamiga " " #currset))
                           (help   (cat #keepamiga " " #currset))
                         (default keepamiga)
              )
)

(set SAVEMEM      (askchoice    (choices #no #yes)
                           (prompt (cat #savemem  " " #currset))
                           (help   (cat #savemem  " " #currset))
                         (default savemem)
              )
)

(set NOPASSTHROUGH (askchoice   (choices #no #yes)
                           (prompt (cat #nopassthrough  " " #currset))
                           (help   (cat #nopassthrough  " " #currset))
                         (default nopassthrough)
              )
)

(set SUPERGELS    (askchoice   (choices #no #yes)
                           (prompt (cat #supergels  " " #currset))
                           (help   (cat #supergels  " " #currset))
                         (default supergels)
              )
)



(Save_Env)

;****
)

(message #followingenv)
(SetEnvLong)

;*********************************************************************************
;* Set needed tooltypes for each board
;*********************************************************************************
(procedure BOOTLOGO-TT
 (set BOOTLOGO      (askchoice    (choices #no #yes)
                             (prompt (cat #bootlogo  " " #currset))
                             (help   (cat #bootlogo  " " #currset))
                             (default 1)
                )
 )

 (tooltype (dest (tackon "devs:monitors" boardname))
           (if (= BOOTLOGO 0)
               (settooltype "BOOTLOGO" "0")
               (settooltype "BOOTLOGO" "1")
           )
 )
)

(procedure PASSTHROUGH-TT
 (set PASSTHROUGH   (askchoice    (choices #no #yes)
                             (prompt (cat #passthrough  " " #currset))
                             (help   (cat #passthrough  " " #currset))
                             (default 0)
                )
 )

 (tooltype (dest (tackon "devs:monitors" boardname))
           (if (= PASSTHROUGH 0)
               (settooltype "PASSTHROUGH" "NO")
               (settooltype "PASSTHROUGH" "YES")
           )
 )
)

(procedure DRAGGING-TT
 (set DRAGGING   (askchoice    (choices #no #yes)
                             (prompt (cat #dragging  " " #currset))
                             (help   (cat #dragging  " " #currset))
                             (default 1)
                )
 )

 (tooltype (dest (tackon "devs:monitors" boardname))
           (if (= DRAGGING 0)
               (settooltype "DRAGGING" "NO")
               (settooltype "DRAGGING" "YES")
           )
 )
)

(procedure SCROLLMASK-TT
 (set SCROLLMASK    (askchoice    (choices #no #yes)
                             (prompt (cat #scrollmask  " " #currset))
                             (help   (cat #scrollmask  " " #currset))
                             (default 1)
                )
 )

 (tooltype (dest (tackon "devs:monitors" boardname))
           (if (= SCROLLMASK 0)
               (settooltype "SCROLLMASK" "NO")
               (settooltype "SCROLLMASK" "YES")
           )
 )
)

(procedure MEMCLOCK-TT
  (set MEMCLOCK (asknumber (prompt (cat #memclock  " " #currset))
                           (help   (cat #memclock  " " #currset))
                           (range 50 80)
                           (default 50)
                )
  )

 (tooltype (dest (tackon "devs:monitors" boardname))
              (settooltype "MEMCLOCK" (cat MEMCLOCK))
 )
)

(procedure WHATBOARD-TT (message (cat #whatboard-tt boardname)) )

(if (IN board 0) ( (set boardname "CVisionPPC") (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) (DRAGGING-TT) (SCROLLMASK-TT) ))
(if (IN board 1) ( (set boardname "CVision3D")  (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) (DRAGGING-TT) (SCROLLMASK-TT) ))
(if (IN board 2) ( (set boardname "CVision64")  (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) (DRAGGING-TT) (SCROLLMASK-TT) (MEMCLOCK-TT) ))
(if (IN board 3) ( (set boardname "PicassoII")  (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) ))
(if (IN board 4) ( (set boardname "Spectrum")   (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) ))
(if (IN board 5) ( (set boardname "Piccolo")    (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) ))
(if (IN board 6) ( (set boardname "PiccoSD64")  (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) ))
(if (IN board 7) ( (set boardname "Inferno")    (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) ))
(if (IN board 8) ( (set boardname "PicassoIV")  (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) ))
(if (IN board 9) ( (set boardname "RetinaZ3")   (WHATBOARD-TT) (BOOTLOGO-TT)  ))

;*********************************************************************************
;* Ask user to install CGXMode
;*********************************************************************************
(set ToDo (askoptions (choices #cgxmode-todo #showcgxconfig)
                      (prompt #todo-prompt)
                      (help #todo-prompt)
                      (default 3)
          )
)

(if (IN ToDo 0)
  (
    (set wheremode   (askdir (prompt #wheremode)
                             (help   #wheremode)
                         (default "SYS:Prefs")
             )
    )

    (if (exists "CGXMode/CGXMode")
     (if (= (exists (tackon wheremode "CGXMode.info")) 0)
      (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (infos) (optional "nofail"))
      (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (optional "nofail"))
     )
    )

    (if (IN board 9) (set TTBOARD "RetinaZ3") )    (if (IN board 8) (set TTBOARD "PicassoIV") )
    (if (IN board 7) (set TTBOARD "Inferno") )     (if (IN board 6) (set TTBOARD "PiccoSD64") )
    (if (IN board 5) (set TTBOARD "Piccolo") )     (if (IN board 4) (set TTBOARD "Spectrum") )
    (if (IN board 3) (set TTBOARD "PicassoII") )   (if (IN board 2) (set TTBOARD "CVision64") )
    (if (IN board 1) (set TTBOARD "CVision3D") )   (if (IN board 0) (set TTBOARD "CVisionPPC") )

    (if (> board 0)
      (tooltype    (dest (tackon wheremode "CGXMode")) (settooltype "BOARD" TTBOARD) )
    )

    (if (= @language "deutsch")
     (
       (if (= (exists "Locale:Catalogs") 0) (makedir "sys:Locale/Catalogs") )
       (if (= (exists (tackon "Locale:Catalogs" "deutsch")) 0) (makedir (tackon "sys:Locale/Catalogs" "deutsch")) )
       (if (exists "CGXMode/catalogs/deutsch/cgxmode.catalog")
         (copyfiles (source "CGXMode/catalogs/deutsch/cgxmode.catalog") (dest "sys:Locale/Catalogs/deutsch") )
       )
     )
    )

  )
)


(if (IN ToDo 1)
  (
    (set whereshowcgxconfig   (askdir (prompt #whereshowcgxconfig)
                             (help   #whereshowcgxconfig)
                         (default "SYS:Tools")
             )
    )

    (if (exists "tools/showcgxconfig")
     (if (= (exists (tackon whereshowcgxconfig "CGXMode.info")) 0)
      (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (infos) (optional "nofail"))
      (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (optional "nofail"))
     )
    )

  )
)


;*******************************************************************
;  END
;*******************************************************************
(if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
(if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )

(run (cat "run " #mpath "/multiview Changes.txt") )

(set @default-dest "ram:")

(exit)